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; ABSTRACT: 


Return current month, day, and year as one-word integer values. 


VERSION: 0 
HISTORY: 
AUTHOR: 


Jonathan M, Taylor, 17-Aug-77: Version 0 


MODIFIED BY: 


@eeeneneeeee ea eeeaeaennneennene 


1 
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; Edit History for Version 0 of FORSIDATE 


; 0-2 = Remove FORSFLAG_JACKET. TNH 11-July-78 
; 1-001 = Update version number and copyright notice. JBS 16-NOV-78 
; 1-002 - Add "'"' to the PSECT directive. JBS 22-DEC-78 
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K 15 
as short integers 15-$ 
~SBTTL DECLARATIONS 


: INCLUDE FILES: 
Ps oerr.mar 


: EXTERNAL SYMBOLS: 
: MACROS: 
: PSECT DECLARATIONS: 

-PSECT _FORSCODE 


: EQUATED SYMBOLS: 


> OWN STORAGE: 
Py none 


PIC, SHR, LONG, EXE, NOWRT 


” 
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eS i ; Time an 
1-00 FORSIDATE = return month, day, year as 1 6=SEP=1984 10:56:21 CFORRTL.SRCJFORIDATE.MAR; 1 (4) 
68 ¢ -SBTTL FORSIDATE - return month, day, year as INTEGER*2 
00 § i++ 
§ 8 3 FUNCTIONAL DESCRIPTION: 
000 89; FORSIDATE uses system service SNUMTIM to get date information. 
B38 90 ; This information is converted to the appropriate type and stored 
4 3 3 through the addresses passed as parameters. | 
4 $8 3; CALLING SEQUENCE: 
0000 8 : CALL FORSIDATE (month.ww.r, day.ww.r, year.ww.r) | 
6006 97 ; INPUT PARAMETERS: F 
000 98 ; F 
0000 99 ; month.ww.r adr of word to place month (1-12) integer F 
0000 100 ; day.ww.r adr of word to place day (1-31) integer F 
9008 19] : year.ww.r adr of word to place year (0-99) integer | 
0000 198 3; IMPLICIT INPUTS: By 
0000 104 ; NONE L, 
0000 105 ; L. 
0000 106 ; OUTPUT PARAMETERS: 
0000 107; NONE 
0000 108; 
0000 109 ; IMPLICIT OUTPUTS: 
0000 110; NONE 
0000 111; 
0000 116 3; COMPLETION CODES: 
0000 113; NONE 
0000 114; 
0000 115 ; SIDE EFFECTS: 
0000 116; SIGNALS Integer Overflow (this should never happen) 
0000 117; 
0000 118 ;-- 
0000 119 
0000 1$9 
0000 121 
4000 8505 1$ eENTRY FORSIDATE, “M<IV> 
a Te ae Ong 1 SUBL #16, S$ ; save 8 words for SNUMTIM 
50 SE 00 000 124 MOVL SP, RO ; RO => data area 
6008 125 SNUMTIM_S (RO) ; get system time values | 
50 8—€ 3C¢C 001 1 $ MOVZWL “(SP)+, RO : = “year since 0° 
a be borg 1 CLRL ; RO is now a guadword value 
50 50 50 00000064 8F 1 128 EDIV #100, RO, RO, RO ; RO = two digit year value 
0c BC 650 BO 0021 129 MOVW RO, a12(AP) 3; return year 
04 BC BE BO 0025 130 MOVW (SP)+, a4(AP) : return month | 
08 BC 6E 0 88 9 131 MOVW (SP), @8(AP) 3; return day 
4 Q02D 1 § RET 3; return 
8 : 9 
O2E 134 
O02E 135 - END 
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Symbol table 
FORSIDATE 00000000 RG 4 
SYSSNUMTIM eeeeeree GC 1 

oem ewe ew en an wm was & 

: Psect synopsis ! 

peewee nrec aman mae wm > 
PSECT name Allocation PSECT No. Attributes 
° 00000000 0.) 9 ( 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_F ORSCODE QOOO0002E ( 46.) » © tal PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

porta enor rr meena wane oe 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization $2 00:00:00.05 00:00:00.84 
Command processing 105 00:00:00.55 00:00:03.53 
ass 98 ab ae 00:00:02.79 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 38 00:00:00.34 00:00:01.47 
Symbol table output 2 00:00:00.02 00:00:00.12 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 276 00:00:01.52 00:00:08.78 


The working set Limit was 900 pages. = 

1677 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 2 non-local and 0 local symbols. 
135 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

2 pages of virtual memory were used to define 2 macros. 


Smee nw eo emote nn ooo momo oe + 


+ 
3 Macro Library statistics : 


Macro Library name Macros defined 
“S25SSDUAZB:(SYSLIBISTARLET.MLB;2 0 SS” “Ys 
13 GETS were required to define 2 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/D1I SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORIDATE/OBJ=OBJ$:FORIDATE MSRC$:FORIDATE/UPDATE=(ENHS:FORIDATE) 
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